home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
bgsound6.zip
/
BGDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-30
|
397b
|
15 lines
Program back_ground_demo;
uses crt,bgsound;
begin
writeln('Building music');
PlayMusic('T80 O4 L8 GFE-FGGG P8 FFF4 GB-B-4 GFE-FGGG GFFGFE-');
writeln('Music is playing');
while BGSPlaying do begin { wait for music to end }
if WhereY = 25 then ClrScr;
writeln('The program can continue processing while the music is playing')
end;
writeln('Music is done')
end.